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Alogorithm Schedule^) j 

Answer:= j j; Pendinq := j |; Enabled := j j; 
for each n in leavesfPf) do computeQueryNode(n); 
while (Enabled i \ \ OR Pending i \ j) 

L := chooseForSchedule(Enabled); /* implements a particular scheduling policy */ 
for each (Q t S) in L do 

Pending := Pending u|(Q,S)j; LOAP_issueQuery(Q,S); 
LDAP_waitForEvent(e); 
case e.type of 

boolean answer for Q@5: Pending := Pending -j(Q,S)J 

storeCache^^e. value); 
for n in getCacheWaitinglist((?,5) do \ 
n. value := e. value; 
computeConditionalNode(n. parent); | 
directory entry for Q@S: Answer := Answer uje. value | 
End-of-Entries for Pending := Pending -|(fl,S)j 
return Answer; 

function computeQueryNode(n) \ 

if all n's children are computed then 

Q := generateQueryExpression(n.<?uery); /* expands all if-macros*/ 
S := n.Server; v := getCache^.S); 
case v of 

INEXISTENT: insertCache(Q,S, Pending); 

Enabled := Enabled uj(Q,S)}; 

addCacheWaitingListfo,S,flJ; 
Pending addCacheWaitingList(<?,S,7y; 
TRUE, FALSE: n.value := v ; 

computeConditionalNode(n.parent) 

function computeConditionalNode(n) | 

if (exist p in n .children such that p. value = TRUE) then 

n.value := TRUE; computeQueryNode( . ); 
else if (all n's children are computed) then 

n.value := FALSE; com puteQueryNode(n. parent); 
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